home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1997 February / Software of the Month Club 1997 February.iso / pc / dos / edu / calc / smooth.bat < prev    next >
Encoding:
DOS Batch File  |  1996-10-28  |  394 b   |  14 lines
  1. calc x = {-10,10,0.1}
  2. calc y = Gauss(x)+0.1*sin(10*x)
  3. calc y "Original function 2 smooth ->" "x ->"
  4. calc w = 0.3
  5. rem this is real-space smooth:
  6. calc smooth(y,w) "Real-space smoothed y ->" "x ->"
  7. @if errorlevel 1 goto fin
  8. rem the following is going to be a FFT-smoothing
  9. rem should be much faster:
  10. @pause
  11. calc Smooth(y,w) "FFT-smoothed y ->" "x ->"
  12. @if errorlevel 1 goto fin
  13. : fin
  14.